unit unitHttpFieldInfoLists;

interface
uses Contnrs, unitHttpFieldInfo;

type

{ THttpFieldList }

  THttpFieldInfoList = class(TObject)
  private
    FItems: TObjectList;
    function GetItems(Index: Integer): THttpFieldInfo;
    procedure SetItems(Index: Integer; const Value: THttpFieldInfo);
  protected

  public
    constructor Create;
    destructor Destroy; override;
    property Items[Index: Integer]: THttpFieldInfo read GetItems write SetItems;
    procedure Add(const Value: THttpFieldInfo);
    procedure Clear;
    function Count: Integer;
  published

  end;

implementation

{ THttpFieldInfoList }

procedure THttpFieldInfoList.Add(const Value: THttpFieldInfo);
begin
  FItems.Add(Value);
end;

procedure THttpFieldInfoList.Clear;
begin
  FItems.Clear;
end;

function THttpFieldInfoList.Count: Integer;
begin
  Result := FItems.Count;
end;

constructor THttpFieldInfoList.Create;
begin
  inherited Create;
  FItems := TObjectList.Create;
end;

destructor THttpFieldInfoList.Destroy;
begin
  FItems.Free;
  inherited;
end;

function THttpFieldInfoList.GetItems(Index: Integer): THttpFieldInfo;
begin
  Result := THttpFieldInfo(FItems[Index]);
end;

procedure THttpFieldInfoList.SetItems(Index: Integer;
  const Value: THttpFieldInfo);
begin
  FItems[Index] := Value;
end;

end.

